Sub muestra_is()
    Dim a As New Collection
    Dim b As Collection
    If a Is b Then
        Debug.Print "Son el mismo objeto"
    Else
        Debug.Print "NO son el mismo objeto"
    End If
End Sub
